home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / toc.dir / 00191.ls < prev    next >
Encoding:
Text File  |  1997-01-16  |  583 b   |  26 lines
  1. on mouseDown
  2.   puppetSprite(10, 1)
  3.   set the memberNum of sprite 10 to the number of member "WATER DOWN.PICT"
  4.   updateStage()
  5.   puppetSound("Squishy")
  6. end
  7.  
  8. on mouseUp
  9.   global rootpath
  10.   set the memberNum of sprite 10 to the number of member "WATER UP.PICT"
  11.   updateStage()
  12.   puppetSprite(10, 1)
  13.   SetReturn()
  14.   delay(60)
  15.   puppetSprite(10, 0)
  16.   sound stop 1
  17.   sound stop 2
  18.   puppetSound(0)
  19.   unloadMember(member "WATER DOWN.PICT", "Squishy")
  20.   if the machineType = 256 then
  21.     play movie rootpath & "DEMOS\A6\A6.Dir"
  22.   else
  23.     play movie rootpath & "DEMOS:A6:A6.Dir"
  24.   end if
  25. end
  26.